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Genera I Notes 

We (PET User Notes) have one more issue after this one. The first 
volume will have 7 issues. We have been including all back issues 
on an annual basis, with the exception of issue 1 . The first issue 
was more or less a prospectus with no important information, so we 
didn't get it reprinted. 

We currently mail about 2400 copies. The total operation is 
more work than I had anticipated, and I have considered not keep¬ 
ing it going after the end of the year. I have received a lot of 
encouraging notes, but really don't know how many of you will 
sign up again. 

Also, I have been squeezed a tiny bit on costs, so if you want 
to keep it going, the cost will be S 6 for 6 issues. (Those of you 
who have already re-subscribed will receive the issues at the old 
S 5 rote). We might go monthly if I find more time, so note that 
it is $ 6 for 6 issues, as opposed to S 6 a year. Overseas air mail 
(outside of U.S. and Canada) will be $6 additional. 

Due to some of the economies of scale, if many of you don't 
renew, I will refund all money and fold my tent (that might even 
give me some time to play with the PET and my wife). 

I plan to keep the format about the same, but welcome any 
suggestions you might have (please don't write about leaving 
enough space at the page edge for a 3 hole punch—I've asked the 
printer to do this the last several issues, but apparently have not 
phrased the question correctly—I will try drawing the holes on the 
pages this time). 

Commodore has been sending some enhanced documentation 
manuals entitled "PET Communication with the Outside World" to 
existing owners. The manual aescribes the various I/O ports, 
pinouts, addresses, and file handling techniques. If you have not 
received a copy, make sure you jog the peoole from whom you 
purchased your PET (not Commodore if you didn't buy from them). 
This manual is apparently still not the final documentation, but 
no indication of when the one currently in the works will be ready. 

Commodore has also been sending "Machine Language 
Monitor", 'Squiggle and "Big Time" programs on taoe along with 
an explanatory booklet. Again, ask the people you bought from 
if you haven't received the package. 

New ROMs are in process at Commodore which will correct 
the BASIC and operating system bugs and add the Machine Language 
Monitor. Suspected availability is mid-November. 

An update on the Commodore disk: about 165 K per drive 
with nice features like variable length records and cbility to 
spread a file over more than one physical drive; 1979 availability. 

Commodore is also saying again they will be printing their 
own User Notes. From a personal standooint, I would rather see 
them concentrate their efforts on designing and producing hardware, 
firmware, and manuals rather than on use • notes and software. 

A recent announcement indicated Commodore will begin 
assembling PET s at their Eaglescliffe, England location, and expect 
to be at the 1000 /month level within 4 months. The same news 
release also stated Commodore is at a ^500 /month production 
level in the U. S. 


Have received several requests for info on how to acquire 
6550 RAM chips at a reasonable price (Commodore has them at 
S30) or how to adapt the 21 14 to replace the 6550 in older PET s. 

Kilobaud has their "Instant Software" sales program up and 
going now. They emphasize the TRS-80, but are offering some PET 
programs at S 7.95 (and looking for software authors). 

Calculators/Computers Magazine keeps adding more computer 
material, with emphasis or PET and TRS-80 for classroom applica¬ 
tions. If you are involved in that area, or have children ready to 
learn math and logical structures, it's an excellent publication. 

Their contributing editors include Bob Albrecht and Mac Oglesby, 
both of whom use the PET. Box 310, Menlo fork, CA 94025. 

Creative Computing plans to include several pages on PET in 
each issue. The info will be edited by Greg Yob, who has much 
PET experience. Most of you have probably also seen some of the 
PET programs Creative Computing is selling—generally at $7.95 
for 5 or 6 programs. 

For those of you interested in 6502 single board based systems 
(KIM, SYM (VIM), AIM, etc.), Eric Rehnke publishes USER 
NOTES: 6502, Box 33093, N. Royolton, Ohio 44133 at S13 for 
6 issues. Eric recently left MOS Technology, and says he will be 
spending full time on nis notes. 

Sigma Associates, Box 379, South Boundbrook, NJ 08880 has an 
interface to attach the low cost SWTP 40 column printer to PET's 
IEEE port. The unit comes assembled for S 39.95. Sounds like a 
good buy — for S 250 for the printer plus the interface you can have 
print capabil ity. 

I saw Eldon Berg of E. 3erg Publications at the Philadelphia 
computer show. He was promoting his Periodical Guide for 
Comouterists (a nicely done computer magazine article reference 
and index list—5 5/year— 1360 S.W. 199th Ct., Aloha, OR 
97005). Eldon was also demonstrating a PET keyboard interface 
(including a character translation EPROM ) for an ASCII keyboard. 

It even allowed upper/lower case shifts to operate normally. I had 
high hopes that Eldon would sell the interface kit. He [ust 
reported that he won't, but that GRI, Inc will (see next paragraph). 

George Risk Industries announced PERK (... External Real 
Keyboard). It is an assembled full size keyboard with case, power 
supply, cables and plugs, and PET interface to allow normal shift 
and shift lock, standard CRT cursor control functions, full screen 
editing, etc. Robert Nickels at GRI, GRI Plaza, Kimball, NB 
69145. 

CGRS Microfech, Box 368, Southampton, PA 18966 announced 
their EXS-100./floppy disk package for PET at $695. This includes 
the EXS-100 disk controller (for up to 3 drives) combined with an 
S-100 interface, an 5A-400 minifloppy drive, cabinet, cables, 
power supply, and some system software. Joe Swope 215-757-0284. 

Technical Hardware Inc. (Thi nc) Box 3609, Fullerton, CA 
92634 sel Is ADAK-l-PET for $99.50 (assembled). The package 
includes the analogue interface card, connector* (for parallel port), 
instructions, and software cassette. The announcement stated the 
software was primarily machine language, and included utilities, 

A-D conversion, Fourier synthesis (to combine up to 11 harmonic 
overtones), music generation, and examples (several paddle games 
and songs). 


I have seen a copy of CURSOR cassette "magazine ' for PET, 

published by Ron Jeffries, Box 550, Goletc, CA 93017. Ron puts PET User Notes published 6 (or more) times a year by Gene Beals, 

about 5 PET programs on tape and mails first class on a monthly PET User Group, Box 371, Montgomeryvilie, PA 18936. 

basis, 12 issues for S24. At $2 a tape, you can't go far wrong . Subscription is S 6 for 6 issues in U.S. and Canada, and $ 12 for 

airmail to other countries. Copyright 1978. 
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3 G Company, Incorporated, Rt 3 Box 28A, Gaston, OR 
97119 (503) 662-4492 announced a light pen for PET at $24.95 
including sample program and instructions. 

Detlef Hartmann, Undinestr. 49, 1000 Berlin 45, Germany 
has a PKichine language routine to merge BASIC programs for PET. 
The u>er must have BASIC line numbers appropriately prearranged. 
For 20 DM you will receive a program listing (not a tape). 

PET Software Exchange, Lincoln Computer Club, Lincoln 
School, 750 E. Yosemite, Manteca, CA 95336 — a group of 60 
seventh and eighth grade students wishing to exchange PET 
programs — send SASE for their list. 

Catalyst Computer Center, attn: J. Reinders, Lakeland High 
School, 1630 Bogie Lake Rd, Milford, Ml 48042 will send a nice 
copy of BIORYTHM (which uses a line printer for plotting) if you 
send a blank tape and a donation of at least S3. They want to 
pay for the computer equipment they have (its a student funded 
project). 

Those interested in forming a local users group in northern 
Virginia area please contact Robert Karpen, 2054 Eakins Ct., 
Reston, VA 22091 (703) 860-9116. 

My apologies for being a little late again. Also, sorry to be 
so slow in getting the memory maps mailed out. I did make extra 
copies, however, so if you want the info (5 pages of memory mop 
ard addresses plus a nice 2 page chart by Jim Butterfield depicting 
equivalent decimal codes for PET screen, POKE, PRINT, assembler 
mnemonics, etc.) send a SASE plus 2 extra stamps for copy cost. 


FOR-NEXT and GOSUB-RETURN Structures 

Jim Butterfield 

Just to clear up oossiblc confusion .. FOR-NEXT and GOSUB- 
RETURN combinations are interlinked, and you'll have to obey 
certain rules: 

1. If you're in one or more FO*/NEXT loops, and GOSUB to a 
subroutine, you can't give a valid NEXT within the subroutine. 

In effect, the outer FOR/NEXT loops are disconnected until you 
RETURN. You can use the variables, and even change them (al¬ 
though this is often unwise), but you can't say NEXT within the 
subroutine if you didn't say FOR there. 

2. If you start a FOR loop within a subroutine and then RETURN, 
the FOR loop will be cancelled. 

3. If you have a group of nested FOR statements, e.g. 

100 FOR > ... 

200 FOR K= ... 

300 FOR L= ... 

the inner loops will be cancelled (in this case, K and L) if you say 
either NEXT J or give another FOR J= ... This can be useful, 
since you want to abort a loop in many cases (for example, when 
you've found the table entry you want). It can be a useful habit 
to always use the same variable name on your outermost loops - this 
way, all inner loops will automatically cancel when you start a new 
main loop. 

4. FOR loops hove a very nice construction — you can do quite 
useful things with the parameters. For example, FOR J=J TO 10 
will take J from its existing value up to 10. If you use an expression 
such as FOR J“1 TO A STEP P*3 remember that the limit (A) and the 
step size (P*3) are computed on the spot. Changing the value of A 
and P within the loop won't affect the operation. 

5. For those who like keeping track of memory, an active FOR- 
NEXT loop uses up 18 locations in the stack, and an active GOSUB 
uses 5 locations. You have about 200 locations at your disposal in 
the stack. Use them up and you'll get an OUT OF MEMORY 
notice — even though the FRE(0) shows plenty of memory available. 

6. A final word of caution: always use the variable name in your 
NEXT statement (say NEXT Y instead of just NEXT) unless you're 
sure the loop will run to completion. I recommend you do it any¬ 
way — it will prevent you getting nto bad habits. 
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HEAD ALIGNMENT FOR THE PET 

Grant fbul Needham, Mass. 

The drive mechanism of the PET's tape unit is similar to these 
found in inexpensive audio cassette recorders end is not particular 
noted for its ruggedness. This mechanism, including the tape heads 
takes a lot of mechanical abuse from frequent starts, stops, rewinds, 
etc. After a period of time, if is possible for the record/play head 
to go out of alignment (particularly if the original adjustment was 
set marginally at the factory),causing read errors to develop. The 
alignment of the tape heed is usually quite critical and normally 
requires the use of a lest tape along with an oscilloscope (or meter); 
however, the technique described below can be used with excellent 
results and without the use of any specialized equipment (other than 
the PET itself) - 

First and foremost, make sure your tape heads and capstan arc 
clean, and thet the heads have been properly demagnetized. 
Second, load in a program (proferably a lengthy one) which was 
recorded on a quality cassette tape. After loading, PEEK at memory 
location 630, i.e. PRINT PEEK(630). The value returned by the 
PET divided by 2 gives the number of dropouts encountered in reed¬ 
ing the tape. Ideally, this number is zero (and frequently is), but 
an occasional low number is probably all right. A consistently high 
number, on the other hand, is an indication of a problem. Thoro 
are several possibilities for excessively high drop outs, which inc 
using a defective or poor quality cassette (try loading programs from 
other tapes), mechanical slippage (make sure the drive belt, idler 
wheels, and capstan are clean), and faulty electronics; however, 
the chances are quite good that the record/play head is out of 
alignment. 

To realign the head, first turn off the PET and remove the 
cassette recorder from the unit. Disassemble the top and bottom 
halves of the recorder's plastic case and remove the mechanism. 

The record/play head (which is located to the right of the erase 
head) is now fully accessible. Upon examination, you will note 
that this head is held down by two small screws. The screw to the 
left, which is spring loaded, is the alignment screw, and the one 
you will be adjusting. 

The alignment procedure can be performed relatively easily 
using the following steps: 

1. With a toothpick and some paint or nail 
polish carefully mark one dot on the head 
of the alignment screw and another dot 
next to it. These markings serve as a 
reference point when turning the screw, 

2. Connect the tape recorder cable to the 
main circuit board of the PET and turn 
the unit on. 

3. Load in a program and PEEK at memory 
location 630, Note the number of drop oute, 

4. Now with a small non-magnetic screwdriver 
carefully rotate the adjusting screw 1/I6 
of a turn. 

5. Reload the program and note the number of 
drop outs. If the drop outs increased 
significantly, the adjusting screw was 
turned in the wrong direction. 

6. Repeat steps 4 and 5 until the number of 
drop outs is reduced to zero (or to a low_ 
level) • The final screw adjustment usui—^ 
does not require more than 1 1/8 of a turn 
from the original position. 

7. Before reassembling the unit, try loadii 
programs from several other tapes to make 
sure everything is working properly. 


The entire head alignment process for my PET's tape recorder 
ok approximately 30 minutes, and I am once again able to read 
ipes with excellent reliability. 
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SOFTWARE for PET 


KITE FIGHT A two player action game that needs no joystick. 

It is completely original with its own unique strategics. Includes 
four pages on real Indian Fighter Kites. 

Written by Michael Riley. 


SIMON Simon <ays listen to the notes. Simon says watch 
the blinking squares. Simon says repeat what you heard 
and saw. Simon is a fun game to test and develop memory 
skills. Great graphics and sound. Written by Michael Riley. 


BOTH FOR $7.95 


LUNAR LANDER Guide your craft down with the most sophisti¬ 
cated equipment. If perchance you have problems, switch to 
auto-pilot and watch how it should be done. Hear Lunar Module 
sounds as you descend and hear the Star Spangled Banner upon 
a successful landing. Written by veteran pilot and songwriter 
Jeff Jesse and Bob Freeman. 


MORSE CODE Ever wonder */hat all that chatter meant? 
Here's your chance to train your hand and mind to acquire 
the habit painlessly with your faithful friend, your PET. 
MORSE CODE will sound out any letters that your key in, 
or it will give you the sounds for code recognition practice 
Written by a veteran ham and PET lover, Bob Freeman 


BOTH FOP S9.95 


ABTAPEI Includes Life, Biorythm, Othello, Mastermind II, 
Multiprimer (moth tutorial-deduction game) and 
Klingon Capture. 


$8 


MIC ROC HESS 2.0 for PET by Peter Jennings S 19.95 
Select any of 8 levels of play, or let 
MICROCHESS play against itself 


BOOKS books BO 

The Little Book of BASIC Style. How to write a program S5.25f 
you can read 

Basic BASIC - James S. Coan S8.(X>| 

Game Playing with BASIC - Donald D. Spencer S6.00| 

Advanced BASIC - James S. Coan Sr 00< 

BASIC From the Ground Up - David E. Simon S7.75| 

My Computer Likes Me -when I speak BASIC - B Albrecht S2.00 

Instant BASIC - Jerald R. Brown 56,00 

BASIC and the Personal Computer - S12.?o 

Dwyer 8> Critchfield 


OKS books BOOKS 

The BASIC Workbook: Creative Techniques for 

Beginning Programmers - Kenneth E. Schoman, Jr. 

How to profit From Your Personal Computer - TG Lewis 

Stimulating Simulations - Dr C Williom Engle 

The Mind Appliance: Home Computer Applications 

For Machine L anguage and Hardware People — 

Programming a Microcomputer:6502 - Caxton Foster 

6500 Programming /Ajnual - MOS Technology 

6500 Hardware Manual - MOS Technology 

Hewlett-Packard IEEE-488 Standards Manual 


$5.50 

$7.00f 
$ 4.004 
$6.95 


$8.95 

56.50 

56.50 
SI. 50 


| SPECIAL NEW LOW PRICES 


ACCESSORIES 


Cassette Tapes 

We use AGFA best quality tape in screw-fastened busings 
C-10 (5 min/side) 

C-30 (15 min/side) . , , °/f®- 00 

Unbreakable plastic cassette boxes with tape order 10/SI .00 


Ptotect-A-PET 59.95 

Custom fitted clear vinyl dust cover with 
quality stitched seams for those rare 
occasions when you're away from your PET 


PET Edge Connector Plugs with Keys 
Second Cossette Port 

User or IEEE-488 Port 52.50 


BETSI PET to $-100 Inferface Motherboard 
Four slot motherboard - On board sockets 
and decoding circuitry hardware with 
four 100 pin edge connectors. Assembled 

BETSI Kit 

Power Supply for BETSI 

8 volt/6 amp. Assembled in case 

S-100 8K Static RAM (Problem Solver Systems) 
Assembled, tested, and burned-in at factory 

120 day warrantee PERFECT FOR BETSI 


KIM-1 SI61 SYM (VIM) 5242 


Write for list of KIM-1 and PET accessories 


SI 49 


SI 19 
534 

SI 49 


A B Computers 


PO Box 104 


Perkasio PA 18944 (215) 257-8195 
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Programs on Tape 

A correction from last time — MAXIT, by Harry J. Saal is 
available from the author directly at S4.95 (810 Garland Drive, 
ftilo Alto, CA 94303). The program is a very nicely done logical 
game for either 2 players, or 1 player vs. PET (which plays quite 
well). 

Earl Wuchter has written an excellent DRAW POKER program 
nice graphics, and the dealer (PET) raises, bluffs, seldom folds 
(which makes it fun), and doesn't cheat, Earl adds. 

PET RENUMBER, by Bill Seiler, is an excellent BASIC state¬ 
ment renumbering program written in machine language. It resides 
in the high 384 bytes of memory and uses screen memory for a line 
number buffer. The program moves portions of your BASIC program 
forward or backward in memory os necessary to insert new line 
number references. If you would like a copy of Bill's nicely 
commented assembler source, send a SASE and 2 extra stamps to 
cover copy cost of 7 pages of listings. 

SEQUENCE — you have to sort a character list 
STATECAPS —quiz on states and capitals from Kilobaud 3/78 
RACETRACK — see listing in V. I, Issue 3 - RE McGee 
DEFLECTION — F Dunlap 

ADDITION — math drill — F Dunlap, C Pitcairn 

OTHELLO — fro* Byte 9/77 

OTHELLO for 2 — F Dunlap 

BAGELS — like Mastermind - J Butterfield 

Cash flow/Return on Investment - R Goldsmith 

STAR TREK 

BLACKJACK — D Liem - nice graphics, humorous patter by dealer 

LIFE 40*25 — F Covitz 

LIFE 64*6A — F CovitZ 

DO-ALL — JK Johnson from Kilobaud 

TRAP — trap the PET, avoid being trapped 

SUPER HASTERNIND — JR Harcou 

LUNAR LANDER — JR Harcou 

NIH — J Butterfield 

CUBIC — 3D Tic-Tac-Toe 

LIST NEHORY — Charles Combs 

MACHINE LANGUAGE MONITOR — loads in low memory 

TIHE -- large clock display 

BIORYTHH — Kenneth Finn - very concise code - plots with only 
30 BASIC statements 

KING — business-social simulation game 

BREAKOUT — J Butterfield - paddle ball 

SUATPLOT — F Campbell _(see_U. 1 .Issue_3) - .filets it 80*50 

format 

TYPEURITER — H Richter, R Julin - no printer interface yet 
WUHPUS 

HARKET — corporate simulation 

CONCENTRATION — Francis Chambers -displays 52 cards 
ESP TEST — Francis Chambers 
SHARK BAIT — JK Johnson - hangman style program 
FLEA RACE — JK Johnson 

AUARI — Hans-J Koch -German instructions - nice graphics 
CHASE with Sound 

STAR LANES — Gerald Hasty - from Interface Age 

KALEIDOSCOPE — Jerry Panofsky - People's Computers 

HEXDEC — Uayne Reindollar - converts and pokes values into 

memory for machine language programs 

24 Second CUBIC — Hike Louder 

D00DLER — Jim Brannan - draw type program 

SNIP GNDP — Jim Brannan - 2 player ping pong 

PONG — People's Computers 

CURFIT — J Butterfield -fits data to 6 curves 

TRIANGLE — J Butterfield - solves any triangle 

METRIC — J Butterfield - does metric conversions 

DATES — J Butterfield - day of week, days between 

TRENDLINE — J Butterfield - fits, forecasts, graphs 

MILEAGE — J Butterfield - distances from Latitude/Longitude 

FACTORS — J Butterfield - prime factors for any number 

MORTGAGE — J Butterfield - schedule of payments 

FINANCE - J Butterfield - present, future value etc. 

ADDER - Earl Uuchter - functions as an adding machine (nicely 
done) 


BATTLESHIPS — J Butterfield - you vs. computer 

H00HLANDER — J Butterfield - graphics 

CRYPTO — J Butterfield - cryptogram solving aid 

JOTTO — J Butterfield - guess a word 

POEHS — J Butterfield - write poetry 

NYSTERY — J Butterfield - you can't list it! 

HINQNDIS — monitor and disassembler from SPHINX. Loads in 
high memory. 

ELIZA -- adapted for PET by Dennis Cumberton - the computer 
psychologist 

HAMMURABI — social simulation 
SLOT MACHINE — Michael Richter 
CRAPS — Michael Richter 
BREAKOUT with Sound 

POP SHOT — from SPHINX - shooting gallery with sound 
STARS — John Broomhall - children's number guessing game 
LINEBN — Frank Alexander - solves linear equations using 
matrix invert subroutine. 

POUNCE — John Broomhall - kids game.If you don't pounce the 
right number of spaces, the mouse might run into his hole. 

STAR UARS — John Broomhall 

AUT0-D00DLE — Frank Levinson - draws very nice rectangular 
patterns 

FOURIER —Frank Levinson - very nice high density 
graphing—visual demo of Fourier approximation curve fit. 
CRAPS2 — Ear) Uuchter - not a crap game; rolls dice l 
displays statistics on the rolls. Shows odds, etc. 

DRAU POKER — Earl Uuchter 

SOLITAIRE POKER — Dave Howe submitted by Ed Herstein - 
solitaire version of draw poker. Displays odds as you play. 

PRO FOOTBALL — Modified by Carl Hennig from SRI Library 
RENUMBER — Bill Seiler - machine language version 
MATCH GAME — L Uher - 23 matches 

STAR TREK IU — Francis Chambers - updated version with good 
graphics and more features 

BRAIN STRAIN — Ed Herstein - try to get lights on in all but 
the center square 

SNAKE - submitted by Ed Herstein - a 0,1, or 2 player Trap 
game that speeds up the longer you go. 

YAHTZEE — Pete Roue submitted by Ed Herstein - dice game 
HANGMAN — Grant Paul - has list of 500 words 
HANGMAN 2 — for 2 players with PET keeping score - needs a 
little work on display 8 graphics. 

TAPE TEST — Bob Huenemann - Help to evaluate tape loading 
errors. 

COPY —R Julin - data file manipulation 

TALK S TALKER — R Julin - Send ASCCII characters between 2 

PETs via parallel user port. 

LEM -- submitted by Horst Brinkler - lunar lander includes 
attitude angle and orbit .consideration as well as time, 
altitude, 1 velocity. English or metric measurements. No 
graphics. 

INDEX — David Ullcox - tape index to locate a specific 
program on a tape. 

KENTUCKY DERBY — Tom Baker - Horse race for any number of 
people with betting - $ood looking horses. 

MAZE — Hans-J Koch - Creates a single solution maze up to 
19*10. Use cursor keys to find way through. 

FLIGHT SIMULATOR - submitted by Jerry Panofsky - instrument 
flying. Try to take off and land safely. 

BACKGAHHON — Bill Hood 

PPQNG — P. Rowe submitted by Ed Herstein - similar to 
deflection with land mines 

FN MACHINE - feed numbers through machine, see output, deduce 
function. Very nice graphics. Pete Rowe subn. by E. Herstein 
UEI6H - Guess the lightest and heaviest object in 3 tries. 


♦2 for the first program including cassette and postage, «1 
for each additional 

— max 4 per tape. This comes to *5 for each A programs. This 
■programs on tape service" is priced to cover the cost of a 
part time person to copy and mail the tapes. If you have » 
program to add to the list, please send it on tape. Ue will 
copy it and return your tape (with program of your choice). 
Please do not send commercial programs. 
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Unlist Revisited 

Jim Butterfield, Toronto 

Larry Tester's UNLIST appeared in User Notes without much fan¬ 
fare. If you can read between the lines, however (and cope with 
the typos) it's quite a blockbuster of a program . 

In general, it allows a program to be handled as data. Using 
the UNLIST key, you can re-process programs as if they were data 
files, and create such things as program-writing programs, language 
translators, and many other startling things. 

Perhaps the most immediate use of UNLIST for the casual com- 
puterist is to merge two programs together. One program could 
contain subroutines, and these could be merged with other programs 
to save a lot of typing. It's especially useful to be able to merge 
a single set of DATA statements into several programs, each of 
which is set up to process the DATA In different ways. 

Brad Templeton (Toronto) has passed me an even more concise 
way of doing the same thing. I'll go through the whole operation 
step by step. 

First, prepare the program you will want to merge in the follow¬ 
ing manner 

1. Load the program. 

2. Kit a blank tape into the cassette and rewind. 

3. Enter OPEN I,1,1:CMD 1: LIST (on single line using colons) 

4. Press RECORD and PLAY as instructed. 

5. When tape stops moving, type ?"POKE 611,0":PRINT 1 :CLOSEl 
Your tape is now ready, and PET should be back to normal operation. 
You may file this tape and use it at any future time. 

Now for the merge. When you have your second program loaded 
into the PET, mount the tape you hove previously written. Type 
OPEN I, press PLAY as requested, and wait for the tape to stop. 


Here comes the tricky bit. Clear the screen, give 4 cursor 
down's, and type the following line, but DO NOT HIT RETURN; 

POKE 611,1: POKE 525,1: POKE 527,13: ?"h" (crsr home) 

Don't hit return. Instead, press cursor home and 6 cursor downs, 
then type the identical line. This time, hit RETURN at the end of 
the line and listen to the tape move. ,, 

Eventually, things will stop with a 2SYNTAX ERROR or ?OUT 
OF DATA printed between the two lines, and the tape should stop 
(if it doesn't, stop it with the RUN-STOP key). The merge is now 
complete. Type CLOSE 1 to close the file. 

(The ?"POKE 611, 0" in paragraph 5 may be unnecessary -- I 
put it there to guard against a processor crash situation I encountered 
during early testing.) 

ted. note -- The typos to which Jin refers ere the nissing 
cursor control chiracters which our printer doesn't print. 

An relisting UNLIST with lower case characters for cursor 
control.] 

0 GOTO 60000: REM UKLIST (LARRY TESLER) 

60000 OPEN 1,1i REM •••FILE SPEO*« 

60010 GETRt ,Ct*XFASC(CiX>13GOT060010 

60020 POKE610,1 iYI**cd ,, sPRINTYt*D»-6!E*252iS*6sC*13t0ETNl # C0:IF 
Ct="R"G0m0050 

60030 PRINTCI;jIFASC(C$)OCTHENQET11,C»:5»D*(<EANDST)-0)*IFS00T 
060030 

60040 2*2»Z** , 60T060020“sIfS60T060070 

60050 CLOSEIrPRINTMIM CdERRORdCONTh",S+1,6);iST0PiPRlNTYtsZ«9: 
Y-60000:T«10 

60060 FORI-OT07iPRIMTW*IiMEXT*PRIMTO 

60070 L=525:FORI«lTOZ*l!POKEUI f CiNEXT!POKEL,Z:PRINTZt:PRINT‘h" 
; sEND 

c B clear screen, d»down, h-hone 




PLAY CHESS WITH YOUR COMPUTER! 


MICROCHESS is the culmination of two years of chessplaying 
program development by Peter Jennings, author of the famous 1 K 
byte chess program for the KIM-1. MICROCHESS 2.0 for 8K PETs 
and 16K APPLEs, in 6502 machine language, offers 8 levels of play 
to suit everyone from the beginner learning chess to the serious 
player. It examines positions as many as 6 moves ahead, and 
includes a chess clock lor tournament play. MICROCHESS 1 5 for 
BRIDGE CHALLENGER by George Duisman for 8K PETS. Level II 
16K TRS-80S. and 16K APPLEs: You and the dummy play 4 person 
Contract Bridge against the computer. The program will deal hands 
at random or according to your criterion for high card points You 
can review tricks, swap sides or replay hands when the cards aro 

known. No longer do you need 4 people to play!. $14.95 

ORDERS: Check, money order or VISA/Master Charge accepted: 
programs and cassettes guaranteed. If you havo Questions, p/ease 
call us at 617-783-0694 If you know what you want and have your 
VISA/MC card ready, you can DIAL TOLL FREE 1-800-325-6400 


4K TRS-80S. in 2-80 machine language, offers 3 levels of play (both 
Level I and Level II versions are included and can bo loaded on any 
TRS-80 without TBUG). MICROCHESS checks every move for 
legality and displays the current position on a graphic chessboard. 
You can play White or Black, set up and play from special board 
positions, or even watch the computer play against itself! Available 

now at a special introductory price of only. $19.95 

STIMULATING SIMULATIONS by Dr. C.W. Engel for 8K PETs. 4K 
Level I and II TRS-80s and APPLEs with Applesoft II: Ten original 
simulation games such as Forest Fire, Lost Treasure, Gone Fishing 
and Diamond Thief, progressing from elementary to quitocomplex 
with most suitable for schoolchildren. Includes a 64 page book 
giving flowcharts, listings and suggested modifications ... S14.95 
(24 hours, 7 days: in Missouri, dial 1-800-342-6600) Or you can 
mail your order to the address below Personal Software"" products 
are now AVAILABLE NATIONWIDE FROM COMPUTER STORES. 
Look for the Personal Software T “ display in your local store 1 


P.O. Box 136-P10 


Personal Software 


Cambridge, MA 02138 











Unlist Revisited 

Jim Butterfield, Toronto 

Larry Tester's UNLIST appeared in User Notes without much fan¬ 
fare. If you can read between the lines, however (and cope with 
the typos) it's quite a blockbuster of a program . 

In general, it allows a program to be handled as data. Using 
the UNLIST key, you can re-process programs as if they were data 
files, and create such things as program-writing programs, language 
translators, and many other startling things. 

Perhaps the most immediate use of UNLIST for the casual com- 
puterist is to merge two programs together. One program could 
contain subroutines, and these could be merged with other programs 
to save a lot of typing. It's especially useful to be able to merge 
a single set of DATA statements into several programs, each of 
which is set up to process the DATA In different ways. 

Brad Templeton (Toronto) has passed me an even more concise 
way of doing the same thing. I'll go through the whole operation 
step by step. 

First, prepare the program you will want to merge in the follow¬ 
ing manner 

1. Load the program. 

2. Kit a blank tape into the cassette and rewind. 

3. Enter OPEN I,1,1:CMD 1: LIST (on single line using colons) 

4. Press RECORD and PLAY as instructed. 

5. When tape stops moving, type ?"POKE 611,0":PRINT 1 :CLOSEl 
Your tape is now ready, and PET should be back to normal operation. 
You may file this tape and use it at any future time. 

Now for the merge. When you have your second program loaded 
into the PET, mount the tape you hove previously written. Type 
OPEN I, press PLAY as requested, and wait for the tape to stop. 


Here comes the tricky bit. Clear the screen, give 4 cursor 
down's, and type the following line, but DO NOT HIT RETURN; 

POKE 611,1: POKE 525,1: POKE 527,13: ?"h" (crsr home) 

Don't hit return. Instead, press cursor home and 6 cursor downs, 
then type the identical line. This time, hit RETURN at the end of 
the line and listen to the tape move. ,, 

Eventually, things will stop with a 2SYNTAX ERROR or ?OUT 
OF DATA printed between the two lines, and the tape should stop 
(if it doesn't, stop it with the RUN-STOP key). The merge is now 
complete. Type CLOSE 1 to close the file. 

(The ?"POKE 611, 0" in paragraph 5 may be unnecessary -- I 
put it there to guard against a processor crash situation I encountered 
during early testing.) 

ted. note -- The typos to which Jin refers ere the nissing 
cursor control chiracters which our printer doesn't print. 

An relisting UNLIST with lower case characters for cursor 
control.] 

0 GOTO 60000: REM UKLIST (LARRY TESLER) 

60000 OPEN 1,1i REM •••FILE SPEO*« 

60010 GETRt ,Ct*XFASC(CiX>13GOT060010 

60020 POKE610,1 iYI**cd ,, sPRINTYt*D»-6!E*252iS*6sC*13t0ETNl # C0:IF 
Ct="R"G0m0050 

60030 PRINTCI;jIFASC(C$)OCTHENQET11,C»:5»D*(<EANDST)-0)*IFS00T 
060030 

60040 2*2»Z** , 60T060020“sIfS60T060070 

60050 CLOSEIrPRINTMIM CdERRORdCONTh",S+1,6);iST0PiPRlNTYtsZ«9: 
Y-60000:T«10 

60060 FORI-OT07iPRIMTW*IiMEXT*PRIMTO 

60070 L=525:FORI«lTOZ*l!POKEUI f CiNEXT!POKEL,Z:PRINTZt:PRINT‘h" 
; sEND 

c B clear screen, d»down, h-hone 




PLAY CHESS WITH YOUR COMPUTER! 


MICROCHESS is the culmination of two years of chessplaying 
program development by Peter Jennings, author of the famous 1 K 
byte chess program for the KIM-1. MICROCHESS 2.0 for 8K PETs 
and 16K APPLEs, in 6502 machine language, offers 8 levels of play 
to suit everyone from the beginner learning chess to the serious 
player. It examines positions as many as 6 moves ahead, and 
includes a chess clock lor tournament play. MICROCHESS 1 5 for 
BRIDGE CHALLENGER by George Duisman for 8K PETS. Level II 
16K TRS-80S. and 16K APPLEs: You and the dummy play 4 person 
Contract Bridge against the computer. The program will deal hands 
at random or according to your criterion for high card points You 
can review tricks, swap sides or replay hands when the cards aro 

known. No longer do you need 4 people to play!. $14.95 

ORDERS: Check, money order or VISA/Master Charge accepted: 
programs and cassettes guaranteed. If you havo Questions, p/ease 
call us at 617-783-0694 If you know what you want and have your 
VISA/MC card ready, you can DIAL TOLL FREE 1-800-325-6400 


4K TRS-80S. in 2-80 machine language, offers 3 levels of play (both 
Level I and Level II versions are included and can bo loaded on any 
TRS-80 without TBUG). MICROCHESS checks every move for 
legality and displays the current position on a graphic chessboard. 
You can play White or Black, set up and play from special board 
positions, or even watch the computer play against itself! Available 

now at a special introductory price of only. $19.95 

STIMULATING SIMULATIONS by Dr. C.W. Engel for 8K PETs. 4K 
Level I and II TRS-80s and APPLEs with Applesoft II: Ten original 
simulation games such as Forest Fire, Lost Treasure, Gone Fishing 
and Diamond Thief, progressing from elementary to quitocomplex 
with most suitable for schoolchildren. Includes a 64 page book 
giving flowcharts, listings and suggested modifications ... S14.95 
(24 hours, 7 days: in Missouri, dial 1-800-342-6600) Or you can 
mail your order to the address below Personal Software"" products 
are now AVAILABLE NATIONWIDE FROM COMPUTER STORES. 
Look for the Personal Software T “ display in your local store 1 


P.O. Box 136-P10 


Personal Software 


Cambridge, MA 02138 












DISABLING THE PET STOP KEY 

Jim Butterfield 


Ramble 


1 PIN 0KS(5,5).VLUE(3.5>:G0SU* 500 

2 FOR I=1T04:FORJ*lT04:REftD0KS<I,J>;NEXTJ:NEX71 

3 PATA32.93,112,109,32,64,110,112 
.4. DATA32,93.1 10.125.32.64.l£9.125 

5 PRlNT-c" 

6 F0RI=1T04:F0RJ=1T04 'READ VLUE(I,J):NEXT J:HFXTI 

7 DATA 64,110,102,125,10?.?3,125,102 

8 DATA 102,112.64,10?,112,102,110,92 

10 PRINT'*EH7ER TENDENCY TO CC STRAIGHT (0-.99999) 

11 INPUT A 

12 PPINT-c- 

17 F0RI=32?68T0 32768+39STEP 2 :P0KEI*41,125:POKEI*40,109 

18 POKE 1*1,11O:P0KEI,11?:NEXT 

20 FOR J=32768 TO 33727STEP 80 

21 POKEJ,112:P0KEJ*38,112:P0KEJ*4l,123:POKEJ-2,109:POKEJ*1,110 

22 POKE J*3?,110:P0KEJ*40,109:POKEJ-1,125:NEXT 

23 TOR 1-33767-29 TO 33767-40 STEP2:P0KEI,10? jPOKEI ♦1,125 
25 POKEI-40,112:POKE I-39,110:NEXT 

40 UY<1)-22:UY(2>-14:UY<3>=28:UY(41=26 

50 H=33000:8R=3 

60 FOR I = 1T04:READDU)!NEXT 

70 DATA 1,40,-1,-40 

75 RESTORE 

80 UAYS=UY(DF> 

85 WUM=3 

90 11*INT <1+4*RND(1)) 

92 IF 0=(UAYS AND 2‘I1)THEN GOTO 90 
95 IF A>RND<1)ANP NUN =3 THEN D1 = DR 
100 SOUARE=PEEK(H*D(D1)) 

120 FOR 1=1T04SIF OKS<D1,I>=S0UARETHENGOTO200 
125 NEXT I 

130 NUM=NUH-1:UAYS=UAYS AND NOT 2‘D1 

140 IF NUN>1 GOTOPO 

141 D1*1-t1UAYS>21* <UAYS>4>*(UAYS>8)) 

150 GET Zi:IF Zi="*GOT02DO 

155 GOTO 2 
200 TEMP=PEEK(H) 

203 IF TEHP=91 GOTO 250 

205 POKE H, VLUE(DR.ri) 

206 IF TEHP032 THEN POKE H,91 
210 H-H*D(D1>:DR*D1:GOTO 80 
250 GET ZliIF Zt="" C0TO250 
255 GOTO 2 

500 PRINT"rdddddddAUTO HOODIE" 

510 PRINTS BY FRANK LEUINSON* 

520 PRINT"ddd PET USER GROUP' 

530 PRINT' SOFTWARE EXCHANGE' 

540 PRINT" PO BOX 371 

550 PRINT" HONTGOHERYVILLE, PA 18936 

560 FOR 1-1 TO 1500:NEXT I 
570 RETURN 
READY. 


Run the program below. If will place a Monitor in the 
second cassetre tape buffer. 

Locd an/ program desired. Don't use cassette taoe # 2 ! 

To enable the non-stop feature type: SYS 832. 

To disable the non-stop feature tyoe SYS 845. YOU MUST 
DISABLE THE FEATURE BEFORE READING OR WRITING TAPE 


Machine Language Program 


03bO 79 X?T(W SET 

03lil A9 63 LDA *663 Sets Pointer to PRECODE 

03L3 8D 19 02 STA $219 

03b6 A9 03 LDA 43 

03hQ 8D 1A 02 STA S21A 

03UB 58 60 CLI RTS 

03bD 78 XFT3FF SEI 

03hE A9 85 LDA *385 

0350 8D 19 02 STA $219 

0353 A9 E6 LDA ^E6 

0355 8D 1A 02 STA $21A 

0353 58 60 CLI RTS 

035A A9 OO STAiCAJ LDA 40 

035C 13 lj8 PKA °HA 

0352 L8 L8 PKA PHA 

0360 LC 85 E6 JMP lOTPROC 

0363 20 5A 03 PRECDE JSR 3TAKAJ 

0366 EA NOP 

0367 A9 FF PQSTCD LDA rfSFF 

0369 8D 09 02 STA S209 kill stop key 

036C LC 7E E6 JM? RESTORE 


Ever look at Radio Shack's 232 pg. 
owner's manual and wish Commo¬ 
dore had one? 

We have just published ’PETABLE,'* 
an introduction to PET Basic, graph¬ 
ics, and capabilities. It includes pro¬ 
grams. exercises software/hardware 
sources, a periodica! index, and much 
more. Send check or money order for 
S4.95 to: 


PETABLE 

P.O. Box 461 
Philipsburg, PA 16866 




INDEX 

David H Uilcox 

The following are notes regarding the program 

1) "INDEX" is meant to be the first program on the tape 
cassette and can be loaded in any pwr k 

“INDEX" Mill request the operator to press the P-™** K>e J 
oi t!,! cassette deck and then to type in the I associated with 
the nane of the selected program to be loaded. The tape ™ 11 
then advance » Fast-Forward to a point 
location of the selected progran, which can then be loa 

;rjf7n.u progran .a to be added to the tap., or . »«««» 

9H 

oroflran * (or in place of the progran nane to be replaced), 
rewind the tape and SAVE the updated "INDEX" and then type 
R U ;: Uhen the P tape stops, press 'STOP' and •avj> the new 
progran nornally. (i.e.LOAl neu progran a.d SAVE It on the 
INDEX'd tape -here it had automatically stopped.) 

4) Lines 100 to 196 were included with blank spaces for 
progJan nan.s to force the progran to be the sane length on 
tape regardless of the number of progran nanes to be listed. 
This -ill nake the tape start in Fast-For-ard at the sane 
location each tine "IhCEX" ■» run. (Wdrng or subtracting . 
few of these lines -ill not natenally affect progran 
operation.) 


ANNOUNCING 

THE 

commodore 


PET 


5) Line 210 will keep the tape drive notor off.regardless of 

which key is pressed on the cassette, *^°* ra * * ... 

typed in. This line is included inside the BET loop limes 200 
to 220) because occasionally when the 'F.FUD' key is pressed 
while the 'PLAY' key is still down, the sense switch on the 
play key will chatter or vibrate while opening causing noise 
on the sense line which would start the drive notor. In 
addition, this arrangement allows the 'F.FUD' key to be 
pressed at any tine prior to progran * selection and the drive 

notor will remain off. ...... 

6) Line 230 assigns a value to N in relation to the decinal 
value of the ASCII code of the key pressed for progran N <N«>. 
As written, it will assign the values 0-9 for the nunbers O-v 
end the values 10-35 tor the l.tt.r. A-Z, thu« .or. than 10 
programs nay be stored even using a GET statenent. If only 10 
or fewer prograns are to be stored, then Line 230 nay be 
changed to: 

230 N=VAL(H«>^"SEARCHING F0R“;N 

7) Lines 240 to 260 start the drive notor, determine the 
fast-forward running tin., and stop th. driv. notor. Th. va u, 

of 600 in liii. 260 (let* call it 'V') nay b. chang.d to suit a 
particular s.tuation, At a 'M'of 600 , th. tap. util run in 
Fast-Forward for 10 seconds which corresponds to 3 nm. of 
tape at nornal speed on ny PET. Each progran is thus recorded 
at the beginning of a 3 nin. block of tape. (It J®*** 
approximately 2 nin. 10 sec. to record a full 7-K progran not 
including leader.) If all the prograns to be forded on a 
particular tape are to be less than the full 7-K allowed, then 
the 'V' of 600 nay be changed accordingly. An approximate 
fornula for deternining the value of 'V' to use is: 
'M'=150*<716*-FRE(0))/15. For exanple, at a 'V of 350 the 
naxinun progran length Unit would be 3-K. Line 310, which is 
a reminder only, shoud be changed accordingly. 


1 REN *** INDEX 

2 REN BY DAVID UIIC0X 

3 REN 

4 REN PET USER GROUP 

5 REN S0FTUARE EXCHANGE 

6 REN P0 BOX 371 

7 REH HONTGONERYVILLE, PA 18936 

8 REh 

5S PRINT-cPRESS F.FUD KEY ON CASSETTE N0U, 

&0 PRIHT“dTHEH ENTER I FOR SELECTED PR06RAH. 
70 PRINT"ddTHE PROGRANS ON THIS TAPE AREi“ 

90 PRINT-4 I KANE" 

90 PRINT-. B : 

100 PRINT-0. FIRST PROG. TITLE 
SECOND PROG. TITLE- 


THIRD PROG. TITLE " 
ETC. 


personal computer 

Now Available in the Washington D C. Area From: 
The 

CDITIPUTEPi SYSTEFTIS STORE 

TYSONS CORNER VA NEAR HOLIDAY INN 
1984 Chain Bridge Rd., McLean, VA 22101 
703 - 821-8333 

» A FULL LINE COMPUTER STORE: SALES SERVICE - SOFTWARE" 


110 PRINT - I. 

120 PRINT-2. 

130 PRINT-3. 

140 PRINT”*. 

150 PRINT"5. 

160 PR1NT"6. 

170 PRINT-7. 

180 PRINT"8. 

190 PRINT"9. 

192 PRINVA. 

194 PRINT-B. 

196 PRINT"C. 

200 GEI N4:1F NtO — THEH 230 

210 IF PEEK<51?>*0 THEN POKE 519,52iP0KE 59*11,01 

III N-ASC(lEFTt( lit, 1>)-68:PRIHI“SEARCHIHC FOR ‘iH.IF N>9 THEM 
N a N~7 

240 POKE 59411,53:TS=TI»N»400 
250 IF TI<TS THEN 230 
250 POKE 59411,61 

270 PRINT-cPRESS 'STOP' ON CASSETTE, THEN 
280 PRINT-dLOAD SELECTED PROGRAN NORMALLY." 

290 PRINT-dOR:- lipnril 

300 PRINT-dSAVIE 'NEW PROG' ON THIS TAPE HERE 
310 PRINT-ddlEU PROG LIMIT s 7.IK)" 

320 END 
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CONNECTICUT microCOMPUTER 

750 POCONO ROAD - BROOKFIELD. CONNECTICUT 06804 
(203) 775-9659 



HS-232 PRINTER ADAPTER FOR THE COMMODORE PET 

The CONNECTICUT microCOMPUTER ADApter model 1200 is the first In a line of peripheral ,adapters ;for the 
COMMODORE PET. The CmC ADA I200 drives an RS-232 printer from the PET IEEE-488 bus. The CmC ADA 12W allows 
the PET owner to obtain hard copy progran listings, end to type letters, manuscripts, mailing labels, tables 
of data, pictures, invoices, graphs, checks, needlepoint patterns, etc., using a standard RS-232 printer. 

The CnC ATA model 12003 cones essembled and tested, without power supplies, case, or "f" 222 co " n ® ctor 
for $98.50. The CrrC ADA 12W*C comes complete for $169.00. Specify baud rate when ordering. (300 baud is 
supplied unless otherwise requested. Instructions for changing the baud rate are Included.) 


WORD PROCESSOR FOR THE COMMODORE PET 


CONNECTICUT microCOMPUTER now has a word processor program for the COMMODORE PET. This program permits 
composing and printing letters, flyers, advertisements, manuscripts, articles, etc., using the commobjke Hti 

and ^Scr^pt^directIves Include line length, left margin, centering, and skip. Edit commands allow the user to 
insert lines, delete lines, move lines, change strings, save onto cassette, load from cassette, move up. move 
down, print and type. 

The CmC Word Processor Proaram addresses «n RS-232 printer through a CmC printer adaptor. 

The CmC Word Processor Program Is available for $29.60. 


RS-232 TO CURRENT L(X)P/TTL ADAPTER 


The CnC ATApter model 400 has two circuits. The first converts an RS-232 signal to a 20 ma current loop 
signal, and the second converts a 20 ma current loop signal to an RS-232 signal. With this device a 
conputer's teletype port can be used to drive an RS-232 terminal, or vice versa, without modification of the 
port. The CmC ADA 4M0 can also be parolelled to drive a teletype or kS-232 printer while still US i n ^-n th » 
computer's regular terminal. The CmC ADA 400 can easily be modified to become an RS-232 to TTL end TIL to 
RS-232 ADApter. The CmC ADA 400 does not alter the baud rate and uses standard power supplies. The current 
loop is isolated from the R5-232 signal by optoisoletors. 

The CmC ADA 400 is the perfect partner for KIM if vou want to use an RS-232 terminal instead of a 

rrC The l ?nC ADA^ws*comes with drilled, plated through solder pads and sells for $24.50. The CmC ADA 4008 
cones with barrier strips and screw terminals and sells for $29.50. 


This announcement wrs composed on a COMMODORE PET and printed on a CE 
TermiNet using r CmC ADA I200C printer adapter and the CnC Word Processor 
Program. 
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COMMODORE PET HARD COPY OUTPUT USING PET ADA 1200 
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!JAH FIB ha. APB MAY JU» JUL ABO 3 »p l<Y M>V CIC 


I2S*P* 


J3»S« 


IA AS** 
IA*BH* 
ABASH* 
JSPM** 
3BAS** 
3*P*BH» 
4JA5** 


59ASB* 

6* 

7AA3"* 


ansBo.Hi 
19194*7. S( 
«*»l*77.»* 
16*3**33.3 
3* >***SS. A 

*#**4*34.1 

9*A7l*3J.* 
149*9*141 
716437>47 
36I34SA4* 
4*6S4BHA( 
M*)4A3*l 
6I>MA«3* 
B47A3JS9T 
47IBASWB l.*7>IJ7»BE4*9 
3IAA.*B4i# 1.31974 USE*** 

• 14 1/sna# i .3?044AOlAI«*t 

’<>### W # I .9*99 114*I| 
IJIJI59** A.AlJSUin*#' 
S.6393*S*0f 4*9 


• SA3SM* 
779*4# MB* 
4AS7SH6* 
6IUCWM*> 
9117SMB 
I3SV«4*M«* 
I6I37SH6* 


A 7*6AM 


6W9 
9"H»4 
iarse# 
'6IV*«# 
IA»H 
A**B# 
HASH 

IftW# 

4 AASH* 
I9>BM# 
S6AV4* 
64IHMC' 
'AAV4* 

(I.NW 


US68P 

IM.VIK41 

33'SB** 
BI4P4WM 
I 3«i3"W» 

|7#*«#l»' 

iao7sewi 


’ II AS* 


71 AMP#IBM 
?7«6»*M 
34 sivopup 
4AIH7SM" 
5l3PO»*#Wi 
6!4lft(H» 

I/VIV4BHV 

B>7JI>I»4» 


21>3*6.771 
l 919417. SB 
*861*77.28 
IA9394JS.3 
J4K6BSS.7 
0CM6OS4.B 
VSA7IMJA.0 

I49*9'l4| 

JI64A7I.7 

A44I34SA4# 

4I4AS4VM#* 

S34 34A3PI 

ABUIA63* 

6673I0S97 
I .4*171 379Hi*B9 
I.3I9A«7IBI.«9 
I.S96«79>?••*• 
I .91*99 71*417f 41*0 
7.79JS7J*0«.NV 
A.OSOJOM'a 1 *"* 


BJ69B3T3S 
3. I A aa A 7*7f • I • 
a.6S7S3S7at*n 
• .a*a39799E4ia 
SM3I37I7I.II 
I 13IS3AE*11 
7.A7I73373E4I3 
4.S79*67A3E*I 3 

8.49»3S6A0C*|) 

I . * 7 77 AI A 7f 41 4 
7.417a>768E4l* 
3.4MBSA2BI14| 4 
S.BS84I7A3E*I * 
I.6449943E*I4 
I.7*I857I2E*IS 
I.7*76997E*I3 
7.J9S7B338E*IS 
i.aj«a*693i*is 
«.a»3*«BAAI*IS 
3.673413771*13 


B399I373S 
S.I12A7767:*I* 
7.6S7SJS>?E*II 
I.2*3197991• 12 
1.8631 3787|* 17 
I.*11313371*13 
A.an ’37131*1 J 
4.379407aj(*lj 
*.«9B*3079f*i3 
I .«777Aia7|.l* 
a.«J 747 A 66 I*i* 
l.B«6t AABU-14 
A.-t*.llJ?«.l 4 

PA*.00411.14 

I.7411ST 4 7i*IS 
I. )4A6997f4IS 
A.I9SI9I3BE*IS 
).?34A*»9J(4is 

4.A0S74127I*is 

3.*23<l I77M IS 


7.*>M«Iai 

I* 

I a. A*>«4B7 
44.1*71336 
I5.*IIJ*B3 
I 1. 33.-S**! 
IB. 7*43169 
a* 

71.71 13*1* 
A7. 36PS70* 
73.<SAI4>B6 
A4.40.r97* 
IS.493**76 
26.4STSUI 
A7.JB6IA79 
AB. A84AMJ 
79.IS* 7393 
3* 

j#.*aa*7 
34.677 III* 


7. #7in«7B I 

I* 

12.7474487 
14.1471 ISA 
IS.8113*83 
I 7. 37*3*61 
18.7*6796* 
A# 

71.7137*3* 
77. S0A6I** 
73.*3AM>e* 
A*.*»4**74 
AS.*93^07* 

A6.4S7SIJI 

A7. 3*91 A7* 
78.71011 » 
79.13*7393 


c 
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VIEW 

Jim Butterfield 

fro* an idea by Brad Tenpleton, Toronto 

Curious about what's happening in PET'S "»"ory?VlEU 

—tr 

T.o-r.WtiVK {&> 

th.^,. V» .Uh to vi„ by ootio, U« With . P090 "U,b.r. 
Interesting pages arej 

0 - zero page; cursor controls and Basic inputs 
2 - tiners are various control pointers 
4 - start of Basic? -ill change only when you 

change the Basic progra« 

31 - upper RAH nenoryjstring constants 
232 - 1/0 registers and tiners <try starting your 
cassette or hitting the Keyboard) 

something else. 

100 FOR J-826 TO 858 t READ X : POKE J,X : NEXT J s m 
110 DATA 120,173,25,2,73,200,141,25,2 

s k: 

Pot th." -»o w»M III- to tr.ct ih. «ohi nf ItiW 


033A 78 
0333 AD 19 02 
033E L9 C8 
O3U0 8D 19 02 
03U3 AD U 02 

03U6 U9 E5 

03U8 8D 1A 02 
03UB $8 60 

03ljD A2 00 VIEW 
03hF BD 00 00 LOO? 
0352 9D 00 80 
0355 CA 
0356 DO FI 
0358 1C 85 E6 


Hardware Resef 


ON-OFF SEI 

LDA VECTOR 
ECR #$C8 
STA VECTCR 

ida vEcraua 
ECR #$s5 
STA VECTCRHI 
CLI RTS 


MACHINE LANGUAGE 
SOFTWARE 

DISCOVER the most well-kept secrets of the 
PET with this sixty-page disassembly of the 
entire 14K ROM. The listing, generated by PEI 
itself, provides the addresses, opcodes, 
mnemonics, and addressing modes in an easy to 
read and understand format. With all tables, 
subroutine entry points, and major routines 
labeled, it is a MUST for all serious 
programmers. 

Don’t let your PET keep you in the dark 
about what goes on inside! Take advantage of 
the PET's utility routines, floating point 
packaqe, cassette handling and screen editing 
routines-a veritable GOLD MINE of software! 

ALL FOR JUST $12.95 

Widely acclaimed MONITOR IV is now available 
with disassembler: $7.95 Both Items: $19.95 

RAYNOR L. TAYLOR 
QTRS. 718 NAVAL BASE 
CHARLESTON, S.C. 29408 


IDX 00 
LDA xxOO,X 
STA $800D,X 
DEX 

BNE ID OF 
JMP INTERRUPT 


from page 
to screen 


Several people have inquired about reset capability for PET. 

The hardwareTreset can easily bemadded if desired by using a normally 
open pushbutton to ground A27 (RES) on memory'expans,on connector 
(the pushbutton closes the circuit from A27 to 827). Kinnard 

If you don't want to use the memory expansion port, J.R.Kmna 

^^M^h^video^onnector at circuit board coordinates D9 is a 

555 timer module which furnishes the ^Ki^and to* 

The 555 is the only 8 pin module on the board. Jus behindI and o 
the right of the 555 is a 1 megohm resistor 

which lies parol lei to the front edge of the board. ^ onenta ^ , 
grounding the end of the resistor farthest away from the S55*edu e 
will cause a power-on-reset which w.ll clear memory and reset all 

cover near the right front comer where .t will not be 
pushed. Connections between the switch and circuit board car be 
made with miniature test clips to allow W diode 

Ground can be picked up from the case or at the lott end or rne a^oae 
nearest the power connector. A 1000 ohm resistor can be jetted-n 
series with the switch to prevent system damage if the test clips are 
incorrectly connected. 


PET SOFTWARE 

AMORTIZATlON-he1p compute finances-$6 

BIORHYTHM -plotted before your eyes...$7 

BLACKJACK -full graphics version.$7 

DEPTHCHARGF.-seek out enemy subs.$ 7 

HANGMAN-spelling game for children-$8 

MULTIPLICATION-1earn without tables...$7 
TJCTACTOE -3-D version using machine 

language subroutine(fast)..$8 

All programs are on ready-to-load 
digital quality casettes for 8K PETS. 
20% discount on order of 3 or more. 
VISA/BA or MASTERCHARCE accepted if 
you include card# and explr. date. 
POSTAGE PAID IN U.S. 

ABACUS SOFTWARE 
P.O. BOX 7211 
GRAND RAPIDS, Ml.49510 
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Dynamic Keyboard Revised 
Mike Louder 19 August 1973 


60016 Position cursor at HOME then exit BASIC and execute 10 
consecutive RETURNS then return to BASIC via GOTO 60010. 


Here Is a technique for adding GOTO and GOSUB expressions 
adding, changing, or deleting BASIC statement lines while a 
program is running. 1 

Decimal addresses: keyboard buffer — 527-536 
buffer counter — 525 

If a BASIC program is interrupted with a STOP or END, the 
keyboard moniter searches the keyboard buffer and executes any 
"ASCII" instruction that may have been typed in while the program 
was running. By using BASIC to POKE the buffer and appropr.ately 
interrupting the run mode, GOTO (expression) is easily implemented. 
Adding new lines to your program is a more involved process with 
a few known disadvantages: _ 

1. Resident screen graphics will be interfered with. 

2. Changing BASIC "lines" will un-link and reset the varia¬ 
bles list to zero. 

3 Subroutine pointers are lost. 


If the routine is not used to chonge your BASIC code, only 

(1) above applies. 

Try this GOTO (expression) demo: 

10 X=10 

20 L=X* 10: GOTO 50000 

100 X=Xfl0 

300 X=X-H0: GOTO 20 

400 PRINT " THE PET HAS A DYNAMIC KEYBOARD " : END 
50000 PRINT "cdadGOTO" L 'V: POKE 525, 1: POKE 527, 13: 

END 


Now change line 60012 to:. 

60012 PRINT I "?" CHR$(34) CHRS(34) CHR5(20) "THE PET HAS A 
DYNAMIC KEYBOARD, 
and add: 510 END 

Watch the action after : RUN 60000; J, K = 400,500 :then 
RUN 400 

Changing 60012 back to "PRINT I" will allow you to delete lines 
400 through 510. 

As an example of generating new DATA lines as the result of a 
complex search-compare operation or involved math routine, change 
line 60012 ro: 

60012 PRINT riO "DATA" 2 1 1 V It 2 

and add: 

10 J-l: K=30; GOTO 60010 

Using o technique similar to above, the PET "typed in" a 
large additional DATA table for the Joseph Roehrig "3-D Tic-Tac- 
Toe" gan.«* (Kilobaud Apr 77). Now It takes only 24 seconds to 
make the fir;* move. 

The following suggests a way to effectively "load" 9 to 12K 
programs into the PET's 7K RAM memory. Many excellent programs 
lack user instructions because of large dimensioned arrays. The 
program listing may take only 3 to 4 K of memory, but as soon os 
the program pointer sees c DIM() statement nearly 7K is needed. 

The QUBIC game is a good example. 

Change lines cOOll, 60012 and 6CC14 : 


REM: clear screen and position GOTO l so ithat <:ursor is 
located on the left after PRINT "h" and exiting BASIC with END. 
"Locd" buffer with a count of 1 and a 13 code which represents 
the same action as pressing the RETURN key. 

A simple example using " 1= (expression): GOSUB 50000" : 


60011 FOR I - J TO J+ 3 : IF I > K THEN L r 20 
6C012 FRUIT I 

6C014 ERINT "Jr" J*9 " : K - " K " : GOTO " L 
Add : 


10 INPUT AREA CODE 

20 L-AREA CODE* 10 : GOSUB 50000 

30 GOTO 10 

6060 ?" KENTUCKY : 

6061 ?" ASHLAND, BUTLER, COVINGTON & LEXINGTON. : 
RETURN 

etc. 

The following utility routine is self explanatory. Call with a 
GOTO or RUN 60000: 


60000 FRUIT "(CLR) DELETE LINE NUMBERS EF.OM J TO K : 'J,X' 

60001 PRINT 

60002 PRINT " RSM J & K ARE INTEGERS fF.CM 0 TO 05535- 

60003 TtfINT 

60004 INPUT J,K 

60010 TRENT "(CLR) (DOWN) (DOWN) 

60011 ICR I = J IX) J + 3 : IF I > K THEN 6C015 

60012 HUNT I 

60013 NEXT 

6 0014 HUNT "J=” J + 9 K = " K GOTO 60010 

60015 POKE 525 , 10 • FOR N - 0 TO 9 : POKE 527 -i- N, 13 : KHCT 

60016 HOIIT "(EDMB)" : 2ND 


60010 Clear screen and position each group of 9 consecutive line 
numbers so that tho cursor is in front of the top number after 
exiting BASIC ot line 60016 

60011 Generate nine consecutive line numbers until l>K 

60012 Print line numbers on screen. 

60014 10th item on list. Since BASIC variables are scMo zero, 
save K and update J on screen. Return to BASIC line 60010. 

60015 "Load" keyboard counter with a maximum count of 10 and 
fill the buffer with the ASCII code which represents the some 
action as pressing the RETURN key (13). 


6 OCO 6 J - 5 9 GOO : K s 60015 
cocca L - 60008 

Program : 

10 GOTO 59000 
20 POKE 59409,60 
30 DIM A (255,4) 

LO TRENT -(CLR) TEE PROGRAM NOW TAKES 
50 PRINT 7167"HIE (0) "BYTE3 TO RUN. 

60 HUNT ; HUNT "PROMPT USER TO RELOAD ESOGRAM TO SEE 
70 PRINT "A REPEAT OF CJSTRXTIOrfS." : END 
590CC PRINT "(CLP.) THIS PROGRAM PRESENTLY REQUIRES 
5901 c HUNT 7167 -ESE (0) "3YTES OF MBNQRY. 

59020 PRINT : PRINT "AFTER YOU READ THIS, THS SCREEN WILL 
59030 PRINT -BLANK TOR 1 MINUTE 10 SECONDS WHILE 
59040 PRINT "LINES 5SC00 THROIXJH 60016 ARE DELETED. 

59050 PRINT : PRINT "TEAT INCLUDES TEE LINE SPITI NG ROUTINE 
5906c HUNT : PRINT " FRS33 ANY KEY TO CONTINUE 
59070 GET A$ : IF A$ = "" THEN 59070 
59080 POKE 59409,52 : GOTO 60006 

The deleted lines could hove been portions of a BASIC program 
that produced a few intermediate variables to be temporarily stored. 

led. note. Mike hod a list of credits at the end of his article. 

These were: PET User Notes for CHRS codes; Sphinx (CA Bay_area 
user group) for PET memory map; fundamental ideo From HP-65 User 
Club and Peninsula School "DRAW 8K" (Peoples Computers); 

Lennie Cooper and Leonard Tramiel of Commodore toraedress into; 
and in particular Mike Richter for both debug and development 
assistance.] 




PLT GROOMERS FROM ECLECTIC 

ALREADY HAVE A PRINTER?? CONNECT YOUR PET TO IT. 

Printer interface provides IEEE 488 BUSS to RS 232 serial output to any 
buffered printer. The circuit board mounts inside the PEI and comets 
to the printer via standard 25 pin connector. Complete with power supply 
ready to install. Simple 5 minute installation. 

INTERFACE KIT .$58.80 

ASSEMBLED.$83.80 

Plus handling and shipping 

Dealer prices and information available upon request. 

KEEP YOUR PET ACTIVE. 

Currently available are two game tapes and a financial analysis and. 
amortization tape (Cassette 7). 

CASSETTE 2: Slots, Blackjack, Poker, and Craps. 

CASSETTE 3: Golf, Bowling, Hamurabi Robots, and Checkers^ 
More professionally developed Software available soon from EcLLC 11C. 
CASSETTE 1: Startrek, Enterprise, Khngonn, and L b M. 
CASSETTE 4: Horserace, Biorhythm, Rotation, Brick, and Mas ei 
CASSETTE 5: Concentration, Yahtze, Hangman, Ricochet, an .c 

ANY TAPE .$14.95 

Plus 75<£ per tape handling and shipping 


KEEP YOUR PET COOL WITH A FAN. 

This kit comes complete with a quiet, high quality fan replacement Iteck 
panel, and mounting hardware. The fan kit greatly reduces the internal 
temperature, Improving reliability and slowing component aging. This 
unit can be assembled and installed in minutes. 

FAN KIT. $29.95 

Plus handling and shipping 

BRING YOUR PET UP IN THIS WORLD WITH A PLACE OF ITS OWN 

Give your PET a high quality, sturdy table. Two sizes available. 

REGULAR TABLE: 24” deep x 32” long x 26” high.$66.00 

LARGE TABLE: 24” deep x 54 long x 26 high ........ $95.OU 

(Large unit provides area for Printer and/or working). 

Plus handling and shipping 
(Assembly required) 


INTERFACE KIT _AS8 

'CASSETTE 2 CA! 

CASSETTE 7 FA: 

'SMALL TABLE _LA 

WHEN AVAILABLE 
CASSETTE 1 CA 


NAM E __ 

addres s - 

CITY_ 

state, zip__ 

MASTER CHARGE 
VISA EXPIRAT 

CARD NUMBER_ 

SIGNATURE_„_ 


BANK 












PET Game Console 

Ton Finley Hanpton, VA 

[ed. not#. Ton sent a schenatic for a nice 2 Joystick, 2 
button and sound configuration, all in one package hooked to 
the PET parallel port. The joysticks he used are the 3 for 410 
variety you see in the Magazines and at computer shows. Ton 
had the entire configuration nounted in a 5v&.5v2" bakelite 
box. I played with his gane console, and thought it was an 
excellent arrangenent. Ton was running a Joystick lunar lander 
where the player had to nove the landing nodule both down and 
left or right over a rough terrain to a safe landing spot. 

Included here are 2 segments of his progran. Lines 20300 to 
20330 comprise a Machine language routine to check the 
joystick positions. The routine is accessed by ISR function, 
as seen in lines 1010 and 1012 , in the process of deternining 
the X and T coordinates. (This progran only used one of the 
joysticks.)] 


7Y9 REM DETERHIHE MOVES 
1003 UAIT5945&,32,32 
1010 XX=USRC1> 

1012 YY=USR(2) 

1013 HT=1(XX-102J/133)*3 
1033 VT»im-62)/60>t3*1 

1030 FU»n)-ABS(VT>-ABSIHT>!F»=STR«(FU4l000) 

1 037 IFFl)<=OTHEHVT=0!HT=0!60T01040 

1038 IFMV>3/DDANDG"0THEHPRINT"FUEL S ";NIDf(F4,3,3) sQ'l sGOTOI040 

1039 PRINT"FUEl s ’;MID4(F4,3,3> j0 a 0 

1040 VV=VV-1+VT 
1043 HV=HV»HT 

READY. 


20300 FORIO i 826T0854:READHNsPOKEIO T NMsHEXT 

20310 BATA32,167,208,H2,0,138,141,79,232,169,128,141,79,232, Id 

20320 BATA232,44,79,232,208,250,138,168,16?,0,76,120,210 
20325 POKE!,58:P0KE2,3sP0KE5?45? t 128 
20330 RETURN 
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Cassette File Usage Summary 

Jim Butterfield 


The following Information has been passed around users, ard 
is now "official" with the issuance of a Commodore bulletin. It 
seems worth while to summarize briefly: 


1 . Opening a file for writing: an omission in current ROM pro¬ 
grams makes It highly desirable to precede all OPEN statements 

W '^before^OPEN x, 1. .. for writing: POKE 243, 122;POKE 244,2 
before OPEN x,2, .. for writing: POKE 243,58: POKE 244,3 


2. When writing tapes, it is useful to increase the spacing between 
tape blocks — otherwise you might miss a block during subsequen 
reading. There are several approaches to this. M V ^mqlie is to 
call the following subroutine immediately after each rKIlNl : 


Cassette 1 

950 IF Z9<-PESK(625 )GOTO 990 

960 POKE 591x11,53 

970 FOR Z9-1 TO 60; NETT Z9 

980 POKE 59101,61 

990 Z9-PEEK(625)‘.RETURN 


Cassette 2 

550 IF Z?<*?EEK(626 JG0T0 990 

960 POKE 59U56,207 

970 FCR Z9-1 TO 60: NEXT 19 

980 POKE 59U56,223 

990 Z9-FESK(626):RETURK 


3. Even with the above coding. It seems wise to guard against a 
potential "dropped block". Think in terms of writing a number or 
Items" total on tape so that when reading, you can check that 
nothing has been lost. 

4. Don't PRINT* a line of over 80 characters unless you're ore- 
pared to do some careful work with GET' statements when you read 
it back in. In general, avoid "print punctuation"when writing 
(PRINT* 1, A,B or PRINT*2, XS;YS ). Each data element can be 
written as a separate "line". Watch for long strings. 


5. Either check the value of ST after every read, or use your own 
checking routines on your data. ST can be useful, but doesn t 
guarantee your data is 100% good. IF S7=0 . . no errors are seen. 

IF ST>63 . . you have come *o the end of file. If anything else, an 
error has been detected. 


6 . Always CLOSE your cassette files after you're finished with 
them. When writing, your data is accumulated into a buffer. If 
you don't CLOSE, it may not go onto tape. 

Most BASIC errors abort the cassette Hie without CLOSE ing 
it. If this happens while you have a cassette file open for writing, 
better start over . . your *ape will likely have data missing. 


Machine Language From BASIC 
Filler by P.U. Group 


To be compatible with most existing 6502 object code listings, 
I leave the assembled code in hex, and convert to decimal prior to 
the POKE in BASIC. The example for the following poked code is 
from Vol 1, Issue 4, page 9. 

A logical expression like HH>9 in line 200 returns a value 
of -1 if true, which used to bother me. Would it be better to use 
either HH=HH-7*ABS(HH>9) or IF HH>9 THEN HH=HH-7 ? 

The PET manual only indicates a non-zero value it a logical 
expression is true. 


50 S=6400: REH "Start of each, code in decmal' 

100 READ HI;IF GOTO 500 

200 : HH-ASC(Ht>-48* HH-HH*7*(HH>9> 

230 ; HL-ASC(RIGHT!(HI,1)>-48» HL=HL*7*(HL>9> 

300 5 DEC*HL*16*HH 

350 POKE S,DECi S=S*ls GOTO 100 

500 SYS 6400 

600 DATA A2,00, 8A, 9D,50,81, EB, D0.F9, 60, ZZ 

999 END 


* * IS YOUR PET LAZY? * * 

Here 1 s the cure! 

"THE SOFTWARE SHOPPE" 

Distributors of exciting games and intelligence 
for personal computers. 

Our line of programs has been continuously 

growing and we can't hold back any longer. 

NEW AND UNIQUE PROGRAMS SUCH AS I 

EXTENDED GRAPHICS (machine language 
subroutines which greatly enhance the 
PET s already superb graphics !) 

STOCK MARKET ANALYSIS and many more are 
now available. Opportunities exist to 
obtain FREE programs too! 

Don't let your PET sleep its life away. 

Send TODAY for your FREE brochure 
describing all currently available 
software to: 

THE SOFTWARE SHOPPE 
VEPT . 1/97* 

P.0. BOX 277 
BER tt/VM, ILLINOIS 60402 


Another Four Line BASIC Entry 


Dear PET User Nofes: 

I saw Art Hudson’s 4 line program in the last issue of PUN. and I 
am always willing to accept'a challenge. I have included SHORT - 
MAZE", a 4 line program in which you try to find your way to the 
'S'. You are the * and may steer through the maze using the 
keys '5‘ to go down, '4' to go diagonally left and down, 6 to go 
diagonally right and down, and '9' to go to the right. 

Hope you like the program. 


Andy Fraley, Reading, PA 

10 PRINT”c":CLR:FORl=32808T033765:POKEI,INT((3*RND(10)1*1)*32:N 
E 20 I TI»=" 000000 ";#l- 32768 :POKEGO, 0 :POKE 84 , 39 :PO»:t 86 , 41 :POKE 89 , 1 sP 
30 GETS: AI-STRK PEEK (S+80)) : A=A*UAL ( At ) :IFPEEK(A)=640RTIt>"0001 

AC P0KE33767,36r P0KEA,42:PRlNT"hrrrrrrrrrrrr" ;T11:GOT030 


1 "PEI LINE INDENTATION FOR BASIC UITH STYLE 

2 'JOHN F GARST UNIVERSITY OF GEORGIA 

3 ; KEN 

10 FOR 1-1 TO 5 

20 i FOR J-1 TO 8 

30 » NEXT J 

40 NEXT I 
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sensational 
software 


Why should you select 
Creative Computing 
Software? 

1 Highest quality programs—outstand¬ 
ing applications for education, recrea¬ 
tion. business, and household manage¬ 
ment. 

2. Best value—up to ton different pro¬ 
grams per tape 

3 Reliability—programs thoroughly test¬ 
ed and de-bugged 

4. Redundant recording- two copies of 
every program on each tape. 

5 Professional quality tape - high density 
oxide. 100 % calendered, flat frequency 
response, low noise, high output 

6 Anti-jam cassette—teflon lubricated 
six-rib gasket, hard welded windows, 
double locking self lubricating hub. 
double flanged rollers on stainless steel 
pms. heavy metal shield 

7 Hard plastic box—best protection, easy 
to file 

8 Widely available—carried by most retail 
computer stores 

9 Made m U S A 

10. Inexpensive best value per dollar of 
any software. 


Books 

6C. Basic Computer Game* Microcom¬ 
puter Edition. Edited by David Ahl. this 
major revision of 101 Basic Computer 
Games is our best seller. All the classics are 
here: Super Star Trek. Football, Blackjack. 
Lunar Lander. Tic Tac Toe. Nim, Life, and 
Horserace. Lota of sporta ilmulations: 
Basketball. Bowling. Boxing, Golf. Hockey 
and Darts Casino games: Craps. Poker. 
Roulette and Slota. Total of 102 games all In 
Microsoft Basic with large, legible listings. 
200 pp softbound, $7.50. 

9f. Basic and tha Personal Computer. By 

Thomas Dwyer and Margot Crltchfield. One 
of the best and most comprehensive 
presentations of Basic with examples 
specifically developed for personal com¬ 
puters Lotron graphics, games, data bases 
and much more 350 pp. $12.95 

7E. Basic Programming. By Kemeny and 
Kurtz this book was termed by a reviewer as 
‘the best text on Basic on almost all counts." 
An excellent, gradual Introduction to 
programming in Basic with lots of ex¬ 
amples. 150 pp. softbound $8.50. 

7M. Some Common B e el c Programs. By 
Adam Osborne. An ideal workbook for use 
in a Basic programming course or for self 
study. Contains 76 general purpose, prac¬ 
tical Basic programs with complete listings. 
^102 pp. softbound. $7.50. 


PET (8K) Software 

CS-1001. Logic Games-1. Six favorites from 
BASIC Computer Games with super 
graphics. Awari, the African logic game with 
12 pits and 36 beans Bagels, which 
challenges you to guess a secret 3-digit 
number. Martin Gardner s Chomp in which 
you chomp on a cookie with a poison 
corner. Flip-Flop change a row of X’s to 
0's Hexapawn played with three chess 
pawns. Hl-Q, a solitaire peg-removal game. 
$7 95 

CS-1002. Number Games-1. Six number 
logic games including Guess in which you 
guess a secret number 23-Matches— try not 
to take tho last match Letter in which you 
guess a secret letter Number, a random 
jackpot game Trap in which you trap a 
mystery number between two trap numbers. 
Stars gives you stars as clues to the secret 
number. $7.95. 

CS-1201. Sensational Slmulatlons-1. Five 
super simulations including the popular 
Animal in which the computer learns 
animals from you Fur Trader lets you trade 
furs in old Canada Hammurabi in which 
you manage the city-state of Sumeria . Or try 
making your fortune in the Stock Market. A 
logic game. Word, has you guess secret 
words $7 95 

CS-1003. Logic Games-2. Six challenging 
puzzles including Rotate, in which you 
order a matrix of random letters Strike-9, 
try to remove all nine digits without striking 
out The classic number game. NIM. in 
Even-Wins try to take an even number of 
chips Hl-Lo, a number guessing game with 
a jackpot Batnum, the super 'battle of 
numbers!" $7.95 

CS-1004. Graphic* Games-1. Five amazing 
realtime graphics games designed especial¬ 
ly for your PET. In Chase, one player 
pursues the other through a maze of 
obstacles and 'zap doors.” Escape- 
attempt to escape from a prison patrolled by 
robot guards Dan provides arithmetic drill 
and Indicates how close your response is to 
the correct answer on a dart board. In 
Snoopy you compute distances on a 
number-line while trying to shoot down the 
Red Baron InSweepyou must try to hit nine 
targets in order by controlling the path of a 
cannonball 67 95 


creative ^ 
Gonapatiftg 
software 


CS-1005. Graphics Games-2. Six favorite 
games LEM. lunar lander with a graphic 
display and optional auto-pilot. Nuclear 
Reaction, a game of skill for two players. 
Artillery, in which two players shoot it out 
over computer-generated terrain. Bounce 
traces the path of a ball bouncing around 
the screen. Checkers, with graphic display, 
from our BASIC Games book. Dodgem, try 
to outmaneuver another player or the 
computer to get your pieces across the 
board first $7 95 

CS-1006. Conversational Games-1. Talk to 
ELIZA, the computerized psychoanalysis 
program. Compose poetry with Haiku. 
Challenge your vocabulary and word¬ 
guessing skills with Hangman. Hurkle, try to 
find the hurkle on the 10 by 10 grid in five 
moves. In Hexletter, you compete to capture 
more letters on a hexagon than your oppo¬ 
nent. $7.95. 

Blank Cassettes 

CT-C8. Blank C-4 cassettes with 4 minutes 
of tape per tide Perfect for one or two 
programs. Highest quality tape packaged In 
nifty red translucent cassettes In aoft plastic 
box. $1.00 ea., 5 for $4.00. 

Computer Music 
Sampler 

CM-101. Computer Music Sampler. A stereo 
audio cassette containing a full hour of 
computer music played on four different 
synthesizers (Solid State Music, ALF 
Products. Software Technology, and Don 
Schertz' home brew) Also two speech 
synthesizers (Computalker and the original 
1963 Bell Labs synthesizer singing "Daisy”). 
C-60 cassette in soft plastic box, $5.00. 

Software Authors 

Creative Computing ia seeking superior 
software to broaden our line. We pay 
authors a 10% royalty on the retail Hat prica. 
Send your cassette with documentation to 
us with three 154 stamps for return. Please 
allow 6 weeks for evaluation. 

To Order... 

Creative Computing Software should be 
stocked by your local retail computer-store 
If your favorite outlet doesn't yet otter it. 
have him call C.J. at 800-631-8112. (In NJ. 
201-540-0445). 

Or you can order directly from Creative 
Computing. Send your check for tapes plus 
$ 1.00 shipping and handling per order to 
Creative Computing Software. P O. Box 
789-M. Morristown. NJ 07960 NJ residents 
add 5% sales tax. Visa or Master Charge are 
acceptable also. For faster service, call in 
your bank card order toll free to 800-631- 
8112. (In NJ. 201-540-0445). 


15 





4 PR1NT-M0WZER0 PIVOT ELEMENTS STRATEGY" 

5 PRINT 

6 PRINT"THE PROGRAM FINDS THE INVERSE OF THE LEFT HAM 

COEFF MATRIX 

? PRINT-AM SOLVES FOR THE ROOTS OF THE LINEAR EO SYSTEM 
10 DlHCd 5,15): DIM J(40) 

15 PRINT 

20 INPUT"NUMBER OF ROUS OF THE HATRIX";N 
30 PRINT"I=ROU J a C0LUNN“ 

40 PORI-1 TOM 
45 PRINT 
50 F0RJ=1TO N+1 
60 pRiNT ,, i*";i; ,, J= M ;j 

70 lMPUTCt1,J) 

80 MEXTJ 
90 HEXTI 
100 GOSUBiOC 
120 STOP 
600 PD=1 

630 FOR L*1 TO N 
640 DB 3 0 

650 FOR K-1 TO N 
660 DB»C<l r K)*C<L,K>*DD 
670 NEXT K 
680 DD=SOR(DD) 

690 PB=PD*DD 
6100 NEXT L 
6110 BH-1 

6120 FOR L«1 TO N:J<L*20)=L:NEXTL 
6130 FOR L=! TO N 
6140 COO!R=L 
6150 FOR K>LT0N 

6160 IF(ABS(CC)-ABS <C(L,K)))> o 0Q0T06190 

6170 M-K 

6180 COC(L.K) 

6190 NEXT X 

6200 IF L=M G0TO6260 

6210 K=J(H*20) 

6220 J(M*20) 3 J(L+20);J(L*20)"K 
6230 FOR K«1 TO N 

6240 S»C<K r L):C<K,L>»C<M>:C<M>«S 
6250 NEXTK 

6260 C(L,L)*1:BH=DH*CC 


6270 FOR N*1 TO N;C<L,N)-C<L,H>/CC:NEXTH 
6280 FOR M»1 TO N 
6290 IF L=H G0T0634C 
6300 CC=C(M,L) 

6310 IF COO G0T06340 
6320 C(H,L)=0 

6330 FOR K*1 TO N:C<M,K) a C<N f K>-CC*C<l f K> 

6335 MEXTK 

6340 MEXTN 

6350 MEXTL 

6360 FORL=1 TO N 

6370 IF J(L*20) = L G0TO6470 

6380 M*L 

6385 M-M*1 

6390 IF J<N+20) B LGOT064I0 
6400 IF N>NGCT06385 
6410 J(H+20)=J(L*20) 

6420 FORK=1 TO N 

6430 CC=C(L,K):C(L,K)=C(H,M) 

6440 C(H f K)-CC 
6450 MEXTK 
6460 J(L*20)=L 
6470 MEXTL 
6480 PRINT 
6490 FOR J=1 TO N 
6500 PRINT 

6510 PRINT"COLUHN";J 
6520 FOR 1-1 70 N 
6530 PRINTC(I T J) 

6540 MEXTI 

6544 PRINT"PRES KEY" 

6545 GETAt.'IF A» a ’“ THEN 6545 
6550 MEXTJ 

6560 A e O 

6565 PRINT-ROOTS" 

6570 FORI=l TON 
6580 FORJ=lTON 
6590 A B C(I r J>*C(J l N+1)*A 
6600 MEXTJ 
6610 PRINTI,A 
6615 A=0 
6620 MEXTI 
6630 RETURN 
READY. 
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